home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 3-004 ms visual basic pro 30 / 4.imz / 4.IMA / ABOUTBO1.FR_ / ABOUTBO1.bin
Text File  |  1993-04-28  |  4KB  |  146 lines
  1. VERSION 2.00
  2. Begin Form AboutBox 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "About MCITest"
  5.    ClientHeight    =   2100
  6.    ClientLeft      =   2055
  7.    ClientTop       =   1935
  8.    ClientWidth     =   4755
  9.    FontBold        =   -1  'True
  10.    FontItalic      =   0   'False
  11.    FontName        =   "System"
  12.    FontSize        =   9.75
  13.    FontStrikethru  =   0   'False
  14.    FontUnderline   =   0   'False
  15.    Height          =   2505
  16.    Left            =   1995
  17.    LinkMode        =   1  'Source
  18.    LinkTopic       =   "Form1"
  19.    MaxButton       =   0   'False
  20.    MinButton       =   0   'False
  21.    ScaleHeight     =   540
  22.    ScaleWidth      =   540
  23.    Top             =   1590
  24.    Width           =   4875
  25.    Begin CommandButton BTN_OK 
  26.       Caption         =   "OK"
  27.       Height          =   360
  28.       Left            =   1800
  29.       TabIndex        =   1
  30.       Top             =   1500
  31.       Width           =   1080
  32.    End
  33.    Begin PictureBox Picture1 
  34.       BackColor       =   &H00808000&
  35.       Enabled         =   0   'False
  36.       Height          =   1140
  37.       Left            =   1320
  38.       ScaleHeight     =   1110
  39.       ScaleWidth      =   2985
  40.       TabIndex        =   2
  41.       Top             =   225
  42.       Width           =   3015
  43.       Begin Label Label4 
  44.          Alignment       =   2  'Center
  45.          BackColor       =   &H00808000&
  46.          Caption         =   "Version 1.01"
  47.          FontBold        =   -1  'True
  48.          FontItalic      =   0   'False
  49.          FontName        =   "System"
  50.          FontSize        =   9.75
  51.          FontStrikethru  =   0   'False
  52.          FontUnderline   =   0   'False
  53.          Height          =   240
  54.          Left            =   120
  55.          TabIndex        =   5
  56.          Top             =   825
  57.          Width           =   2775
  58.       End
  59.       Begin Label Label3 
  60.          Alignment       =   2  'Center
  61.          BackColor       =   &H00808000&
  62.          Caption         =   "MCI Control Application"
  63.          FontBold        =   -1  'True
  64.          FontItalic      =   0   'False
  65.          FontName        =   "System"
  66.          FontSize        =   9.75
  67.          FontStrikethru  =   0   'False
  68.          FontUnderline   =   0   'False
  69.          Height          =   240
  70.          Left            =   120
  71.          TabIndex        =   4
  72.          Top             =   375
  73.          Width           =   2775
  74.       End
  75.       Begin Label Label2 
  76.          Alignment       =   2  'Center
  77.          BackColor       =   &H00808000&
  78.          Caption         =   "Microsoft Visual Basic"
  79.          FontBold        =   -1  'True
  80.          FontItalic      =   0   'False
  81.          FontName        =   "System"
  82.          FontSize        =   9.75
  83.          FontStrikethru  =   0   'False
  84.          FontUnderline   =   0   'False
  85.          Height          =   240
  86.          Left            =   120
  87.          TabIndex        =   3
  88.          Top             =   75
  89.          Width           =   2775
  90.       End
  91.    End
  92.    Begin PictureBox PIC_Icon 
  93.       BorderStyle     =   0  'None
  94.       Enabled         =   0   'False
  95.       Height          =   495
  96.       Left            =   480
  97.       Picture         =   ABOUTBOX.FRX:0000
  98.       ScaleHeight     =   495
  99.       ScaleWidth      =   480
  100.       TabIndex        =   0
  101.       Top             =   225
  102.       Width           =   480
  103.    End
  104. End
  105.  
  106. Sub BTN_OK_Click ()
  107.     Unload AboutBox
  108. End Sub
  109.  
  110. Sub BTN_OK_GotFocus ()
  111.     Dim i As Integer
  112.     
  113.     ' Make the labels slide into the picture box.  Call
  114.     ' the WaitForEventsToFinish subroutine to allow
  115.     ' repainting of the labels.
  116.     While Label2.Left <= 120
  117.         Label2.Left = Label2.Left + 50
  118.         WaitForEventsToFinish 1
  119.     Wend
  120.  
  121.     While Label3.Left > 120
  122.         Label3.Left = Label3.Left - 50
  123.         WaitForEventsToFinish 1
  124.     Wend
  125.  
  126.     While Label4.Left <= 120
  127.         Label4.Left = Label4.Left + 50
  128.         WaitForEventsToFinish 1
  129.     Wend
  130. End Sub
  131.  
  132. Sub BTN_OK_KeyPress (KeyAscii As Integer)
  133.     ' Entering any key has the same effect as clicking
  134.     ' on the OK button.
  135.     BTN_OK_Click
  136. End Sub
  137.  
  138. Sub Form_Load ()
  139.     ' Force the labels to be displayed outside the
  140.     ' picture box.
  141.     Label2.Left = -2500
  142.     Label3.Left = 4000
  143.     Label4.Left = -2500
  144. End Sub
  145.  
  146.